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SSSSSSSS TITTTTTTTT 000000 PPPPPPPP RRRRRRRR EEEEEEEEEE MM MM 
S$ TT 00 00 PP PP RR RR EE MMMM MMMM 
SS TT 00 00 PP PP RR RR EE MMMM MMMM 
SS TT 00 OO PP PP RR RR EE MM MM MM 
SS TT 00 00 PP PP RR RR EE MM MM MM 
SSSSSS TT 00 00 PPPPPPPP RRRRRRRR EEEEEEEE 
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ss TT 00 00 PP RR RR EE MM MM 
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SSSSSSSS TT 000000 PP RR RR EEEEEEEEEE MM MM 
SSSSSSSS TT 000000 PP RR RR EEEEEEEEEE MM MM 
LL IIIIII SSSSSSSS 
LL I1111 SSSSSSSS 
LL I] S$ 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL II SS 
LL I] SS 
LL I] SS 
LLLLELLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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~TITLE ayopRen - Stop REMACP 
IDENT ‘V04=000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 
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PRR RRBAARAAASALALALASALALSAEASARRRRRARASESES ESS RE REESE SRR RRR RES RSE RRS ER ESE SS 
++ 
FACILITY: REMACP = REMOTE I/O ACP 
ABSTRACT: 

This program stops operation of REMACP. 
ENVIRONMENT: | 


VAX/VMS, INCLUDING PRIVILEGED SYSTEM SERVICES | 
AND INTERNAL EXEC ROUTINE. 


AUTHOR: Scott G. Davis, CREATION DATE: 12-Oct-1979 15:31 
MODIFIED BY: | 


V03-003 JLV0343 Jake VanNoy 8 
Fix too-low IPL bug in calling SCHSWAKE directly. 


v03-002 CWH1002 CW Hobbs 24-Feb-1983 
Modify to call the internal SCHSWAKE routine rather 
than the SWAKE service, since the ACPPID stored in 
the AQB is already an internal pid. 


v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 
Added $PRDEF. 


~APR-1984 


NAME WR @ OOO NAME WN 0 OD NAME WIN 0 OD NAU EWN 0 OONOAU EWN OUOONOUS Wh 


PUPV PUPS BE BB BE EE EAN ANNAN NIWNIIIDIPONIPININPONININI DD 2 PP OP Os es ss ee 
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STOPREM = Stop REMACP 16-SEP-1984 AX/VMS Macro. v04=00 p 
ibe ts < green 1882 BSib2:93 PAM MeS acre ACO age of, | 
58 SAQBDEF | 
SIPLDEF | 
60 PRDEF | 
0000 6 .PSECT OWN, WRT 
00000071"00000000" 0009 4 start_end: .address STOP_REMACP, STOP_REMACP_END 


| 


STOPREM = Stop REMACP 16-SEP-1984 AX/VMS Macro V04-00 Page 
v04-000 -SEP-1984 85:44 93 REM. SRCJSTOPREM.MAR; 1 ° 
68 67 ;++ 
68 ; 
$ $3 ; FUNCTIONAL DESCRIPTION: 
4 4 5 This routine looks up the AQB for REMACP and clears the mount count. 
38 73 ; CALLING SEQUENCE: 
00 75 ; INPUT PARAMETERS: 
0008 76; 
1Bo88 i ; SIDE EFFECTS: 
000 B00 79 -PSECT INSTR,NOWRT 
0000 80 
0000 81 ;-- 
0000 6 
0000 83 STOP_REMACP:: 
0000 0000 84 0 
Bn 85 SLKWSET_S INADR = start_end ; so iPL can be raised 
0c 50 =«ED9 aa 36 BLBC “~RO,10$ 
0016 88 $SCMKRNL_S B“STARTUP ; Do in REMACP 
04 B558 89 10%: RET ; Return with status 
002 90 
0023 91 
0000 0023 3 STARTUP: ~ WORD 0 ; ENTRY POINT 
54 00000000 ' GF DO 0025 g MOVL G*SCHS$GL_CURPCB,R4 ; GET OWN PCB ADDRESS 
00000000'GF 16 002C 94 JSB G*SCHSIOCOCKW 3; Lock the database 
51 00000000 ' GF 9E 0032 95 MOVAB G*IOC$GL_AQBLIST,R1 3; GET THE LIST ADDRESS 
56 61 DO Bose 38 70$ MOVL (R1),R6 ; GET FIRST AQB POINTER 
05 15 A6é 91 003C 98 CMPB AQB$B_ACPTYPE (R6) +MAQBSK_REM ; ; IS THIS IT? 
15 13 0040 99 BEQL 7 IF EQL YES 
56 10 A6 DO 0042 100 MOVL AQBSL_LINK(R6) ,R6 ; GET LINK 
F4 612 «40046 ~= = 6101 BNEQ s if NEG keep looking 
00000000 ' GF 16 0048 106 SB G*SCHSIOUNLOCK 3; Unlock I/0 database 
004E 10 SETIPL @# 3; Restore IPL 
50 0000°8F 3C 0051 £104 MOVZWL #SS$_NONEXPR,RO 3 fous en t find REMACP 
04 0056 105 RET ; Go bac 
0057 106 80$: 
0B A6 94 0057 #107 CLRB a2 99 a_i 3; Mark as finished 
00000000'GF 16 OOSA 108 SB CHS1OU : Unlock 1/0 database 
0060 109 SETIPL bie ‘$ SY NCH ; Up IPL for cail 
51 QC A6 DO 0063 110 OVL AQBSL ACPPID(R6) ,R1 : Get the internal PID 
00000000'GF 16 0067 111 $B G*SCHSWAKE 3 Wake up REMACP 
006D \i¢ SETIPL : Bring down the IPL 
04 0079 #11 ET : Go back, wake status in RO 
0071 114 
0071 115 STOP_REMACP_END:: 
0071 116 .ENB = STOP_REMACP 
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STOPREM = Stop REMACP 16-SEP-1984 02:14:05 VAX/VMS Macro v04-00 Page 
Symbol table g sat y §5:43:93 REM.SRCJSTOPREM.MAR; 1 “ 
AQBSB_ACPTYPE = 00000015 
AQBSB"MNTCNT = 4444 
AQBSK_REM = Beonoh 
AQBSL-ACPPID = 0000 O06 
AQBSL_LINK = 0000001 
IOC$SGC_AQBLIST eeeeeee x 03 
IPL$_SYNCH = 00000008 
PRS$_TPL = 00000012 
SCHSGL_CURPCB eereeeee =X = 03 
SCHSIOCOCKW ereeeeee =X | 05 
SCHS$IOUNLOCK eereeeee = X 03 C. 
SCHSWAKE eeeeeeee =X H C, 
SS$_NONEXPR ereerere§ = KX 0 C’ 
TARTUP 00000023 R 03 Cc! 
START_END 0000000 R be | 1 
STOP_REMACP 00000000 RG =O | C 
STOP_REMACP_END 00000071 RG 03 E) 
SYSSCMKRNL eeeeeeee GX 03 | E) 
SYSSLKWSET teeeeeee GX 03 + 
$ueccevecesesouss + F 
! Psect synopsis ! Fl 
dows meee ee ew ee aees i! 
PSECT name Allocation PSECT No. Attributes | Ly 
: 00000000 ¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE | 
SABSS 0000000 < 0.) O1 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE N’ 
OWN 0000008 ( 8.) 02 2:) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE | N’ 
INSTR 00000071 ¢ 113.) O03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE N’ 
ett | 
H Performance indicators ! | 
| 
Phase Page faults CPU Time Elapsed Time N’ 
wWwrrwrnwr i # i ee ee ee a mr + $< << a a | 
Initialization 35 00:00:00.06 00:00:00.32 
Command processing 132 00:00:00.68 00:00:02.46 
Pass 150 00:00:02.01 eS EE 
Symbol table sort 0 00:00:00.13 00:00:00.1 
Pass 2 40 00:00:00.48 00:00:00.93 
Symbol table output 2 00:00:00.05 00:90:00.08 
Psect synopsis output 3 ea a SE 00:00:00.02 
Cross-reference output 0:00: 3°? 00:00:00.00 
Assembler run totals 364 00:00:03.44 00:00:09.80 


The working set Limit was 1050 feess. . 
8707 bytes (18 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 135 non-local and 3 local symbols. 
116 source Lines were read in Pass 1, producing 15 object records in Pass 2 

14 pages of virtual memory were used to define 13 macros. 


STOPREM = = Stop REMACP 
VAX-11 Macro Run Statistics 


or eee neo enw zoe $+ 


i ; Macro Library statistics ! 


Macro Library name Macros defined 
-$255$DUA28: CREM. rt} wt -MLB; 1 9 
“$255$DUA28:(SYS.OBJIJLIB.MLB; 1 
“$255$DUA28: eye IBISTARLET. MLB;2 7 

TOTALS (all Libraries) 10 


217 GETS were required to define 10 macros. 


There were no errors, warnings or information messages. 


AX/VMS Macro V04-00 Page 5 82 
REM. SRCJSTOPREM.MAR; 1 (1), 


Syn 


q=< 


MACRO/LIS=L1S$:STOPREM/OBJ=0BJ$:STOPREM MSRC$:STOPREM/UPDATE=(ENH$: STOPREM) +EXECML$/LIB+LIB$:REM/LIB NTS 


TCTTAL EQUI 
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